Shareware Super Platinum 8/Shareware Super Platinum 8.iso/mac/PROGTOOL/ADA-TUTR.ZIP;1/TRITYPE.DUM

Text File | 1992-09-04 | 219 b | 8 lines

-- Dummy solution for Outside Assignment 2
-- Edit to become your real solution.
separate (TRITEST)
function TRITYPE(LEN1, LEN2, LEN3 : in INTEGER) return TRIANGLE is
begin
   return NOT_A_TRIANGLE;
end TRITYPE;